home *** CD-ROM | disk | FTP | other *** search
/ MacPeople 1997 August 15 / MACPEOPLE-1997-08-15.ISO.7z / MACPEOPLE-1997-08-15.ISO / アップル関連 / ARA PS アップデート / モデム用 / RATOC REX-5568M / RATOC REX-5568M next >
Text File  |  1996-01-23  |  10KB  |  487 lines
  1. !**************************************************************************
  2. !
  3. ! "RATOC REX-5568/9868  for  ARA version 2.0  CCL - Aug./07/95"
  4. !                Ver2.0.1  23 / Jan. / 96   REX-5568M Type
  5. !
  6. !    REX-5568M..
  7. !      DATA/FAX Modem     DATA 28800bps/ FAX 14400bps
  8. !      Data mode V.34/V.Fast/V.32bis/V.32/V.22bis/BELL 212A/BELL 103
  9. !      Fax mode V.17/V.29/V.27ter/V.21   EIA-578 Class1/EIA-592 Class2
  10. !      ERR MNP Class4 V.42/ DATA MNP Class5 V.42bis / MNP 10
  11. !      DTE Speed 115.2k/57.6k/38.4k/19.2k/9600/7200/4800/2400/1200/600/300bps
  12. !
  13. ! "localized for RATOC System inc. - Aug./07/95"
  14. !
  15. !               Written by Chell.Para
  16. !
  17. !  'mlts' resource info for this modem:
  18. !    byte 1 == 01 -> modem HAS builtin reliability protocols
  19. !    byte 2 == 00 -> reserved by Apple
  20. !    byte 3 == FE -> max hex chars in varstr 7 (254 dec)
  21. !    byte 4 == FE -> max hex chars in varstr 8
  22. !    byte 5 == FE -> max hex chars in varstr 9
  23. !    
  24. !**************************************************************************
  25. @ORIGINATE
  26. @ANSWER
  27. !******************************************
  28. ! モデムの初期設定　ラベル1〜10
  29. !******************************************
  30. ! Mac talks to the modem at 28,800 bps.  
  31. serreset 28800, 0, 8, 1
  32. !------------------------
  33. ! シリアルポートリセット
  34. !------------------------
  35. HSReset 0 0 0 0 0 0
  36. !
  37. settries 0
  38. @LABEL 1
  39. matchclr
  40. matchstr 1 3 "OK¥13¥10"
  41. ! &F  - モデム動作状態のSレジスタと各コマンドを出荷時モードに設定
  42. ! &D3 - ERがONからOFF に変化すると電源投入時と同じ初期設定を行う
  43. ! ¥Q3 - CS/RSによる双方向のフロー制御
  44. ! %E0 - 自動リトレーニング禁止
  45. ! %C0 - データコンプレッション無し
  46. ! ¥V2 - MNP/LAPMモード時に詳細な結果コードを使用する
  47. ! ¥N1 - ダイレクトモード指定
  48. ! ¥J1 - シリアルポートの速度調整有り(モデムとシリアルポートの速度を一致)
  49. ! S0=0 - 自動応答をしない
  50. ! E0   - コマンドエコー禁止
  51. write "AT&F&D3¥¥Q3%E0%C0¥¥V2¥¥N1¥¥J0E0¥13"
  52. matchread 30
  53. inctries
  54. iftries 2 81
  55. !------------------
  56. ! モデムリセット
  57. !-------------------
  58. DTRSet
  59. pause 5
  60. DTRClear
  61. pause 5
  62. DTRSet
  63. flush
  64. jump 1
  65. !
  66. !-----------------------------------------
  67. ! MNP/LAPMエラー訂正プロトコルチェック
  68. !-----------------------------------------
  69. @LABEL 3
  70. ! MNP10を指定されれば(var 4 == 2)ラベル4
  71. ifstr 4 4 "2"
  72. !
  73. ! MNP/LAPMを指定されれば(var 4 == 1)ラベル5
  74. ifstr 4 5 "1"
  75. !
  76. ! MNP/LAPMを使わない場合(var 4 == 0)[ARA 1.0]ラベル9
  77. ifstr 4 9 "0"
  78. !
  79. ! それ以外のvar 4値はエラー
  80. jump 86
  81. !
  82. !-----------------------------------------------------
  83. ! MNP10モード
  84. !-----------------------------------------------------
  85. @LABEL 4
  86. matchclr
  87. matchstr 1 9 "OK¥13¥10"
  88. ! ¥N5 - MNPモード
  89. ! ¥J0 - シリアルポートの速度調節無し
  90. ! -K1 - MNP10拡張サービスを有効にする
  91. write "AT¥¥N5¥¥J0-K1¥13"
  92. matchread 300
  93. jump 81
  94. !
  95. !-----------------------------------------------------
  96. ! LAPM/MNPモード
  97. !-----------------------------------------------------
  98. @LABEL 5
  99. matchclr
  100. matchstr 1 9 "OK¥13¥10"
  101. ! ¥N3 - v42自動選択モード
  102. ! ¥J0 - シリアルポートの速度調節無し
  103. write "AT¥¥N3¥¥J0¥13"
  104. matchread 300
  105. jump 81
  106. !
  107. !----------------------------------------
  108. ! スピーカーOFF動作/ON指定ならラベル13
  109. !----------------------------------------
  110. @LABEL 9
  111. ifstr 2 13 "1"
  112. pause 5
  113. matchclr
  114. matchstr 1 13 "OK¥13¥10"
  115. write "ATM0¥13"
  116. matchread 30
  117. jump 81
  118. !
  119. !*******************************************************************************
  120. ! モデムの初期設定後オリジネートモード・アンサーモードでの応答　ラベル11〜30
  121. !*******************************************************************************
  122. @LABEL 13
  123. pause 5
  124. ifANSWER 71
  125. !
  126. ! 通常ダイアルであれば(parm 6 == 0)ラベル19
  127. ifstr 6 19 "0"
  128. !
  129. ! ダイアルトーン無視であれば(parm 6 == 1)ラベル17
  130. ifstr 6 17 "1"
  131. !
  132. ! ビジートーン・ダイアルトーン無視であれば(parm 6 == 2)ラベル15
  133. ifstr 6 15 "2"
  134. !
  135. !  それ以外のparm 6値はエラー
  136. jump 86
  137. !
  138. @label 15
  139. note "手動ダイアル中。" 3
  140. ! X1 - ビジートーン・ダイアルトーン無視
  141. ! D   - ダイアルコマンド
  142. write "ATX1D¥13"
  143. jump 32
  144. !
  145. @label 17
  146. note "ダイアルトーンを無視してダイアル中。" 3
  147. matchclr
  148. matchstr 1 19 "OK¥13¥10"
  149. ! X3 - ダイアルトーン無視
  150. write "ATX3¥13"
  151. matchread 30
  152. jump 81
  153. !
  154. @label 19
  155. ! parm 1 = ダイアルストリングドキュメント
  156. ! parm 3 = パルス"P"/トーン"T"
  157. ! parm 7 = 最初のダイアルストリング
  158. ! parm 8 = 二番目のダイアルストリング
  159. ! parm 9 = 最後のダイアルストリング
  160. note "^1 をダイアル中。" 3
  161. !
  162. ! parm 8が無い場合(出力parm 7)ラベル27
  163. ifstr 8 27 " "
  164. !
  165. ! parm 9が無い場合(出力parm 7.8)ラベル24
  166. ifstr 9 24 " "
  167. !
  168. ! それ以外は出力parm 7.8.9
  169. matchclr
  170. matchstr 1 21 "OK¥13¥10"
  171. write "ATD^3^7;¥13"
  172. matchread 400
  173. ! モデム応答がない場合エラー
  174. jump 81
  175. !
  176. @label 21
  177. matchclr
  178. matchstr 1 22 "OK¥13¥10"
  179. write "ATD^3^8;¥13"
  180. matchread 400
  181. ! モデム応答がない場合エラー
  182. jump 81
  183. !
  184. @label 22
  185. write "ATD^3^9¥13"
  186. jump 32
  187. !
  188. @label 24
  189. matchclr
  190. matchstr 1 25 "OK¥13¥10"
  191. write "ATD^3^7;¥13"
  192. matchread 400
  193. ! モデム応答がない場合エラー
  194. jump 81
  195. !
  196. @label 25
  197. write "ATD^3^8¥13"
  198. jump 32
  199. !
  200. @label 27
  201. write "ATD^3^7¥13"
  202. jump 32
  203. !****************************
  204. ! モデム接続　ラベル34〜60
  205. !****************************
  206. @LABEL 32
  207. matchclr
  208. !
  209. matchstr 1  35 "CONNECT¥13¥10"
  210. matchstr 2  36 "CONNECT/REL¥13¥10"
  211. !
  212. matchstr 3  37 "CONNECT 1200¥13¥10"
  213. matchstr 4  38 "CONNECT 1200/REL¥13¥10"
  214. !
  215. matchstr 5  39 "CONNECT 2400¥13¥10"
  216. matchstr 6  40 "CONNECT 2400/REL¥13¥10"
  217. !
  218. matchstr 7 41 "CONNECT 4800¥13¥10"
  219. matchstr 8 42 "CONNECT 4800/REL¥13¥10"
  220. !
  221. matchstr 9 43 "CONNECT 7200¥13¥10"
  222. matchstr 10 44 "CONNECT 7200/REL¥13¥10"
  223. !
  224. matchstr 11 45 "CONNECT 9600¥13¥10"
  225. matchstr 12 46 "CONNECT 9600/REL¥13¥10"
  226. !
  227. matchstr 13 47 "CONNECT 12000¥13¥10"
  228. matchstr 14 48 "CONNECT 12000/REL¥13¥10"
  229. !
  230. matchstr 15 49 "CONNECT 14400¥13¥10"
  231. matchstr 16 50 "CONNECT 14400/REL¥13¥10"
  232. !
  233. matchstr 17 51 "CONNECT 16800¥13¥10"
  234. matchstr 18 52 "CONNECT 19200¥13¥10"
  235. matchstr 19 53 "CONNECT 21600¥13¥10"
  236. matchstr 20 54 "CONNECT 24000¥13¥10"
  237. matchstr 21 55 "CONNECT 26400¥13¥10"
  238. matchstr 22 56 "CONNECT 28800¥13¥10"
  239. !
  240. ! other connect speeds go below here
  241. !
  242. matchstr 42 72 "RING¥13¥10"
  243. matchstr 43 82 "NO DIALTONE¥13¥10"
  244. matchstr 44 83 "NO CARRIER¥13¥10"
  245. matchstr 45 83 "ERROR¥13¥10"
  246. matchstr 46 84 "BUSY¥13¥10"
  247. matchstr 47 85 "NO ANSWER¥13¥10"
  248. matchstr 48 87 "CONNECT¥13¥10"
  249. !
  250. matchread 700
  251. ifANSWER 32
  252. jump 81
  253. !
  254. @LABEL 35
  255. note "300 bps で接続中" 2
  256. serreset 300, 0, 8, 1
  257. jump 68
  258. !
  259. @LABEL 36
  260. note "MNP/v.42bis リンクが成立。" 3
  261. userhook 2
  262. note "300 bps で接続中" 2
  263. CommunicatingAt 300
  264. jump 68
  265. !
  266. @LABEL 37
  267. note "1200 bps で接続中" 2
  268. serreset 1200, 0, 8, 1
  269. jump 68
  270. !
  271. @LABEL 38
  272. note "MNP/v.42bis リンクが成立。" 3
  273. userhook 2
  274. note "1200 bps で接続中" 2
  275. CommunicatingAt 1200
  276. jump 68
  277. !
  278. @LABEL 39
  279. note "2400 bps で接続中" 2
  280. serreset 2400, 0, 8, 1
  281. jump 68
  282. !
  283. @LABEL 40
  284. note "MNP/v.42bis リンクが成立。" 3
  285. userhook 2
  286. note "2400 bps で接続中" 2
  287. CommunicatingAt 2400
  288. jump 68
  289. !
  290. @LABEL 41
  291. note "4800 bps で接続中" 2
  292. serreset 4800, 0, 8, 1
  293. jump 68
  294. !
  295. @LABEL 42
  296. note "MNP/v.42bis リンクが成立。" 3
  297. userhook 2
  298. note "4800 bps で接続中" 2
  299. CommunicatingAt 4800
  300. jump 68
  301. !
  302. @LABEL 43
  303. note "7200 bps で接続中" 2
  304. serreset 7200, 0, 8, 1
  305. jump 68
  306. !
  307. @LABEL 44
  308. note "MNP/v.42bis リンクが成立。" 3
  309. userhook 2
  310. note "7200 bps で接続中" 2
  311. CommunicatingAt 7200
  312. jump 68
  313. !
  314. @LABEL 45
  315. note "9600 bps で接続中" 2
  316. serreset 9600, 0, 8, 1
  317. jump 68
  318. !
  319. @LABEL 46
  320. note "MNP/v.42bis リンクが成立。" 3
  321. userhook 2
  322. note "9600 bps で接続中" 2
  323. CommunicatingAt 9600
  324. jump 68
  325. !
  326. @LABEL 47
  327. note "12 kbps で接続中" 2
  328. serreset 12000, 0, 8, 1
  329. jump 68
  330. !
  331. @LABEL 48
  332. note "MNP/v.42bis リンクが成立。" 3
  333. userhook 2
  334. note "12 kbps で接続中" 2
  335. CommunicatingAt 12000
  336. jump 68
  337. !
  338. @LABEL 49
  339. note "14.4 kbps で接続中" 2
  340. serreset 14400, 0, 8, 1
  341. jump 68
  342. !
  343. @LABEL 50
  344. note "MNP/v.42bis リンクが成立。" 3
  345. userhook 2
  346. note "14.4 kbps で接続中" 2
  347. CommunicatingAt 14400
  348. jump 68
  349. !
  350. @LABEL 51
  351. note "16.8 kbps で接続中" 2
  352. serreset 16800, 0, 8, 1
  353. jump 68
  354. !
  355. @LABEL 52
  356. note "19.2 kbps で接続中" 2
  357. serreset 19200, 0, 8, 1
  358. jump 68
  359. !
  360. @LABEL 53
  361. note "21.6 kbps で接続中" 2
  362. serreset 21600, 0, 8, 1
  363. jump 68
  364. !
  365. @LABEL 54
  366. note "24 kbps で接続中" 2
  367. serreset 24000, 0, 8, 1
  368. jump 68
  369. !
  370. @LABEL 55
  371. note "26.4 kbps で接続中" 2
  372. serreset 26400, 0, 8, 1
  373. jump 68
  374. !
  375. @LABEL 56
  376. note "28.8 kbps で接続中" 2
  377. serreset 28800, 0, 8, 1
  378. !
  379. jump 68
  380. @LABEL 68
  381. ! turn on cts handshaking.
  382. HSReset 0 1 0 0 0 0
  383. !
  384. ifANSWER 69
  385. pause 30
  386. @LABEL 69
  387. exit 0
  388. !*********************************************
  389. ! モデム返答一回　ラベル71〜80
  390. !*********************************************
  391. @LABEL 71
  392. matchclr
  393. matchstr 1 32 "OK¥13¥10"
  394. write "ATS0=1¥13"
  395. matchread 30
  396. jump 81
  397. !
  398. @LABEL 72
  399. ifORIGINATE 32
  400. ! claim the serial port
  401. userhook 1
  402. note "電話に応対しています。" 2
  403. jump 32
  404. !************************************************
  405. ! エラーメッセージ　ラベル81〜100
  406. !************************************************
  407. ! モデムが応答しない
  408. @LABEL 81
  409. exit -6019
  410. !
  411. ! ダイアルトーン未検出
  412. @LABEL 82
  413. exit -6020
  414. !
  415. ! モデムと接続できない
  416. @LABEL 83
  417. exit -6021
  418. !
  419. ! ビジートーン検出
  420. @LABEL 84
  421. exit -6022
  422. !
  423. ! 指定番号の返答がない
  424. @LABEL 85
  425. exit -6023
  426. !
  427. ! 機能拡張ファイルの破損
  428. @LABEL 86
  429. exit -6027
  430. !
  431. ! 300bps未対応
  432. @LABEL 87
  433. exit -6002 "ARA は 300bps の接続に対応していません。"
  434. ! -6002 "ARA doesn't support 300bps connection."
  435. !
  436. !**************************
  437. ! ハングアップ　101〜120
  438. !**************************
  439. @HANGUP
  440. @LABEL 102
  441. settries 0
  442. HSReset 0 0 0 0 0 0
  443. !----------------------------
  444. ! コマンドモードに戻す
  445. !----------------------------
  446. @LABEL 105
  447. matchclr
  448. matchstr 1 108 "OK¥13¥10"
  449. pause 10
  450. write "+++"
  451. matchread 15
  452. !
  453. !-------------------
  454. ! オフフック
  455. !-------------------
  456. @LABEL 108
  457. matchclr
  458. matchstr 1 111 "NO CARRIER¥13¥10"
  459. matchstr 2 111 "OK¥13¥10"
  460. matchstr 3 111 "ERROR¥13¥10"
  461. write "ATH¥13"
  462. matchread 30
  463. inctries
  464. iftries 3 81
  465. !---------------------------------------
  466. ! DTR初期化コマンド
  467. !---------------------------------------
  468. DTRSet
  469. pause 5
  470. DTRClear
  471. pause 5
  472. DTRSet
  473. flush
  474. jump 105
  475. !------------------------------
  476. ! 初期設定値に戻す.
  477. !------------------------------
  478. @LABEL 111
  479. pause 15
  480. matchclr
  481. matchstr 1 114 "OK¥13¥10"
  482. write "AT&FS0=0¥13"
  483. matchread 30
  484. jump 81
  485. !
  486. @LABEL 114
  487. exit 0